COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.PAGE FRAME 53 HIGH 85 WIDE
C00005 00003	.BEGIN "FRONT"
C00007 00004	.BEGIN "YUM"
C00009 ENDMK
C⊗;
.PAGE FRAME 53 HIGH 85 WIDE

.if XCRIBL THEN START
.FONT 1 "BASL30"; FONT 2 "BASI30"; FONT 3 "BASB30";
.FONT 4 "BDR40"; FONT 5 "BEESIX"; FONT 6 "SGN114";
.FONT 7 "NGR25"; FONT 8 "BDJ25";
.AT "ffi" ⊂ IF THISFONT ≤ 3 THEN "≠"  ELSE "fαfαi" ⊃;
.AT "ffl" ⊂ IF THISFONT ≤ 3 THEN "α∞" ELSE "fαfαl" ⊃;
.AT "ff"  ⊂ IF THISFONT ≤ 3 THEN "≥"  ELSE "fαf" ⊃;
.AT "fi"  ⊂ IF THISFONT ≤ 3 THEN "α≡" ELSE "fαi" ⊃;
.AT "fl"  ⊂ IF THISFONT ≤ 3 THEN "∨"  ELSE "fαl" ⊃;
.END

.AREA TEXT LINES 4 TO 53;

.MACRO NEXCOL ⊂ SKIP TO COLUMN (IF COLUMN=1 THEN 2 ELSE 1) ⊃

.macro tecol(linmin)  ⊂
.if lines<linmin then begin
.  nexcol;
→%3Page
.  end
.  ⊃

.COMMENT Call this macro once at the end of the document;
.MACRO BACK ⊂
.TURN ON "→\∂{"
.EVERY HEADING(,%4TABLE OF CONTENTS,)
.FILL NOJUST CRBREAK
.PREFACE 0
.PORTION CONTENTS
.SKIP TO COLUMN 1
→%3Page
.RECEIVE
.		⊃

.TURN ON "α#%→←{"
.BEGIN "FRONT"
.PORTION FRONT; place text
.CENTER
%4{MONTH} {YEAR}
.SKIP 2
STANFORD ARTIFICIAL INTELLIGENCE LABORATORY
.SKIP
presents:
.SKIP 2
%6YUMYUM
.SKIP 1 FILL ADJUST INDENT 6,6,6;
%4Yumyum is a guide to various Bay Area restaurants.
It seeks to provide some new ideas for eating-out adventures.
Comments are provided about reactions to various
gastronomic offerings, and culinary efforts are critiqued.

Where not otherwise stated, comments refer to the Summer of 1974.
Of course, restaurants change with the passing of time and chefs.
Also, inflation and soaring food costs, may turn today's inexpensive find
into tomorrow's budget buster.

This guide is divided into
geographical regions.  Restaurants within each region are listed
by type of cuisine.  

→Kasee Menke, Editor#######

.TURN OFF "#"; SKIP 2; CENTER;
%3Credit Card Codes:
%2AX=American Express, BA=BankAmericard, CB=Carte Blanche,
DC=Diners Club,	 MC=Master Charge.
.END "FRONT"

.AREA TEXT LINES 4 TO 53 IN 2 COLUMNS 4 APART;
.INSERT CONTENTS

.BEGIN "YUM"
.PORTION BODY
.TURN ON "∂";

.MACRO SEC(PLACE) ⊂ EVERY HEADING(" ",%5PLACE,%3{PAGE}); NEXT PAGE; CENTER
.SEND CONTENTS ⊂ tecol(6); SKIP;
%5PLACE
. ⊃
.EVERY HEADING(%5PLACE,%4{CUIS},%3{PAGE!});
.⊃

.CUIS←NULL;
.MACRO TIT(HEADER,SUBHEAD);  ⊂
.SKIP 2; nofill; GROUP;
.IF LENGTH("HEADER") THEN BEGIN
.	CUIS←"HEADER";
.	SEND CONTENTS ⊂
.tecol(5);
∂+2%3HEADER→%1{PAGE!}
.	⊃;
%4HEADER:
.	END
.    ELSE SKIP 1;
.IF LENGTH("SUBHEAD") THEN BEGIN
.	SEND CONTENTS ⊂
.tecol(4);
∂+4%3SUBHEAD→%1{PAGE!}
.	⊃
∂+2%4SUBHEAD
.	END
.⊃

.PREFACE 0;

.AT "⊗" NAME "/" ADDRESS  "/" PHONE "/" HRS "/" COMM "≡" ⊂
.SEND CONTENTS ⊂
.TECOL(2);
∂+6NAME→{PAGE!}
. ⊃
.SELECT 3;SKIP; GROUP; FILL; ADJUST; COMPACT; CRBREAK;
NAME→%1PHONE
ADDRESS
%7Hours:  HRS
.CRSPACE; COMPACT;
%8COMM
.APART
.⊃

.COUNT PAGE; INDENT 0,0,0;
.require "YUM" source_file;
.END "YUM"

.back